﻿Public Partial Class Vehicle_Popup
    Inherits System.Web.UI.Page
    Dim clsGet As New ClassFunctionGetData
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not (Session("VEHICLE") & "" = "") Then
                'Dim lb As Label = CType(Master.FindControl("lbMenu"), Label)
                'lb.Text = "Vessel"
                lbCode.Text = Session("VEHICLE").ToString().Split("$")(0)
                lbName.Text = Session("VEHICLE").ToString().Split("$")(1)
                lbLength.Text = Session("VEHICLE").ToString().Split("$")(2)
                lbWidth.Text = Session("VEHICLE").ToString().Split("$")(3)
                lbHeight.Text = Session("VEHICLE").ToString().Split("$")(4)
                lbMaxDraft.Text = Session("VEHICLE").ToString().Split("$")(5)
                lbMaxWidth.Text = Session("VEHICLE").ToString().Split("$")(6)
                lbGRT.Text = Session("VEHICLE").ToString().Split("$")(7)
                lbContry.Text = Session("VEHICLE").ToString().Split("$")(8)
                lbOWNER.Text = Session("VEHICLE").ToString().Split("$")(9)
                lbMaxVol.Text = Session("VEHICLE").ToString().Split("$")(10)
                Session("VEHICLE") = ""
            End If
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
        ScriptManager.RegisterClientScriptBlock(Me.Page, GetType(String), "myscript", " parent.closeModal('1');", True)
    End Sub

    Private Sub MainPage_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Dim ds As DataSet = Session("UserData")
        If Not (ds Is Nothing) Then
            Page.MasterPageFile = clsGet.GetMaster_Page(ds.Tables(0).Rows(0).Item("User_Name").ToString(), "")
        End If
    End Sub
End Class